\psset{unit=0.95,algebraic}
\begin{pspicture*}(-5,-4.5)(5,2.5)
\psaxes[labelFontSize=\scriptstyle,ticksize=-3pt 0,labelsep=2pt]{<->}(0,0)(-2.5,-2.1)(2.5,2.1)
\psplot[linecolor=blue]{-1.5}{1.5}{x^4-2*x^2+1}
\psplot[linecolor=red]{-1.2}{1.2}{4*x^3-4*x}
\footnotesize
\rput[r](-1.5,2){\textcolor{blue}{$f(x)=x^4-2x^2+1$}}
\rput[r](-1.5,-1.5){\textcolor{red}{$f'(x)=4x^3-4x$}}
\normalsize
\psaxes[labelFontSize=\scriptstyle,ticksize=-3pt 0,labelsep=2pt]{<->}(0,-3)(-2.5,-3)(2.5,-3)
\psline[linecolor=gray,linestyle=dashed]{<-}(-1,-4)(-1,2)
\psline[linecolor=gray,linestyle=dashed]{<-}(0,-4)(0,2)
\psline[linecolor=gray,linestyle=dashed]{<-}(1,-4)(1,2)
\footnotesize
\rput[r](-2,-2.5){Crecimiento $f(x)$}
\rput[r](-2,-3.7){Signo $f'(x)$}
\rput[c](-1.5,-2.5){\textcolor{blue}{$\downarrow$}}
\rput[c](-1.5,-3.7){\textcolor{red}{$-$}}
\rput[c](-1,-3.7){\textcolor{red}{$0$}}
\rput[c](-0.5,-2.5){\textcolor{blue}{$\uparrow$}}
\rput[c](-0.5,-3.7){\textcolor{red}{$+$}}
\rput[c](0,-3.7){\textcolor{red}{$0$}}
\rput[c](0.5,-2.5){\textcolor{blue}{$\downarrow$}}
\rput[c](0.5,-3.7){\textcolor{red}{$-$}}
\rput[c](1,-3.7){\textcolor{red}{$0$}}
\rput[c](1.5,-2.5){\textcolor{blue}{$\uparrow$}}
\rput[c](1.5,-3.7){\textcolor{red}{$+$}}
\uncover<2->{
\rput[r](-2,-4.3){Extremos $f(x)$}
\rput[c](-1,-4.3){\textcolor{blue}{Mín}}
\rput[c](0,-4.3){\textcolor{blue}{Máx}}
\rput[c](1,-4.3){\textcolor{blue}{Mín}}
}
\end{pspicture*}